home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / amos / sillysource6.lha / SPOT IT.AMOS / SPOT IT.amosSourceCode < prev    next >
AMOS Source Code  |  1996-08-25  |  3KB  |  101 lines
  1. Screen Open 1,320,256,16,Lowres : Screen Hide 1 : Curs Off : Hide On 
  2. Screen Open 2,320,200,16,Lowres : Curs Off : Screen Hide 2
  3. Kill Editor : MUS=1 : Music 1
  4. Unpack 2 To 1 : Wait Vbl : Wait 20
  5. Dim ZO1(11,10),ZO2(11,10),ZOCO(11,10)
  6. Repeat : Until Mouse Key<>0
  7.  
  8. OPTIONS:
  9. Fade 3 : Wait 45 : Unpack 4 To 1 : Wait Vbl : Reserve Zone 25
  10. Restore : For N=5 To 15 : Read A,B : Set Zone N,A,160 To B,190 : Next N
  11. Set Zone 16,3,135 To 109,152 : Set Zone 18,237,135 To 315,152
  12. AH:
  13. Wait 20 : Show On : Repeat 
  14. CH=Mouse Zone
  15. Until Mouse Key=1 and CH<>0 : Hide On 
  16. If CH>4 and CH<16 Then Goto PICCYPOO
  17. If CH=18 Then Hide On : Fade 3 : Wait 45 : Music Off : End 
  18. If CH=16 and MUS=0 Then MUS=1 : Music 1 : Goto AH
  19. If CH=16 and MUS=1 Then MUS=0 : Music Off : Goto AH
  20.  
  21. PICCYPOO:
  22. SCR=CH-4 : SC=0 : HIT=0 : MISS=0
  23. F$="PICTURE"+Str$(SCR)-" "+".DAT"
  24. If F$=P$ Then Goto NEE
  25. P$=F$
  26. Open In 1,F$
  27. For X=1 To 11 : For Y=1 To 10
  28. Input #1,ZO1(X,Y) : Input #1,ZO2(X,Y) : Input #1,ZOCO(X,Y)
  29. Next Y : Next X
  30. Close 1
  31. NEE:
  32. SCR=Rnd(10)+1
  33. Fade 3 : Wait 45 : Unpack CH To 2 : Wait Vbl 
  34. Screen Copy 2 To 1
  35. Reserve Zone 12 : For X=1 To 10
  36. Paste Bob ZO1(SCR,X),ZO2(SCR,X),ZOCO(SCR,X)
  37. Set Zone X,ZO1(SCR,X)-5,ZO2(SCR,X)-5 To ZO1(SCR,X)+5,ZO2(SCR,X)+5
  38. Next X
  39. Set Zone 11,45,175 To 53,186 : Set Zone 12,263,175 To 270,186
  40.  
  41. Show On 
  42.  
  43. MAIN:
  44. Wait 20 : Do 
  45. CH=Mouse Zone : Wait Vbl 
  46. K$=Inkey$ : If K$="C" or K$="c" Then Goto CHEAT
  47. If CH>0 and CH<11 and Mouse Key=1 Then Goto YES
  48. If CH=0 and Mouse Key=1 Then Goto NO
  49. If CH=11 and Mouse Key=1
  50. Wind Save : Wind Open 1,40,40,22,6,2 : Curs Off 
  51. Print "HAD ENOUGH THEN?" : Print : Print "YOUR SCORE IS:";SC : Wait 150
  52. Hide On : Goto OPTIONS
  53. End If 
  54. If CH=12 and Mouse Key=1
  55. Wind Save : Wind Open 1,40,40,22,4,2 : Curs Off 
  56. Print "YOUR SCORE IS:";SC : Wait 150
  57. Wind Close : Goto MAIN
  58. End If 
  59.  
  60. Loop 
  61.  
  62. YES:
  63. Wind Save : Wind Open 1,40,40,10,7,2 : Curs Off 
  64. Inc HIT : Print "CORRECT" : Print : Print "HIT:";HIT : Print "MISS";MISS
  65. SC=SC+25
  66. If HIT=10
  67. Wait 80 : Clw : Wind Size 12,9 : Print " 10 RIGHT" : Print 
  68. Print "WELL DONE" : Print : Print " GAME OVER" : Wait 120
  69. Wind Size 22,4 : Print "YOUR SCORE IS:";SC : Wait 150
  70. Hide On : Reset Zone : Goto OPTIONS
  71. End If 
  72. Wait 10 : While Mouse Key=0 : Wend : Wind Close 
  73. Ink 0 : Box ZO1(SCR,CH),ZO2(SCR,CH) To ZO1(SCR,CH)+4,ZO2(SCR,CH)+4
  74. Ink 0 : Box ZO1(SCR,CH)-1,ZO2(SCR,CH)-1 To ZO1(SCR,CH)+5,ZO2(SCR,CH)+5
  75. Reset Zone CH
  76. Goto MAIN
  77.  
  78. NO:
  79. Wind Save : Wind Open 1,40,40,10,7,2 : Curs Off 
  80. Inc MISS : Print "WRONG" : Print : Print "HIT:";HIT : Print "MISS";MISS
  81. If MISS=5
  82. Wait 80 : Clw : Wind Size 12,9 : Print "  5 WRONG" : Print 
  83. Print "  SORRY" : Print : Print " GAME OVER" : Wait 150
  84. Wind Size 22,4 : Print "YOUR SCORE IS:";SC : Wait 150
  85. Hide On : Reset Zone : Goto OPTIONS
  86. End If 
  87.  
  88. Wait 20 : While Mouse Key=0 : Wend 
  89. Wind Close 
  90. Goto MAIN
  91. Rem OPTION SCREEN DATA 
  92. Data 0,25,25,53,53,81,81,106,106,134,134,161,161,189,189,215,215,243,243,284,284,319
  93.  
  94. CHEAT:
  95. For Y=1 To 10
  96. Ink 0 : Box ZO1(SCR,Y),ZO2(SCR,Y) To ZO1(SCR,Y)+4,ZO2(SCR,Y)+4
  97. Next Y
  98. Wind Save : Wind Open 1,40,40,17,6,2 : Curs Off 
  99. Print "CHEAT!!" : Print "MOUSE KEY" : Print "TO CONTINUE"
  100. Wait 20 : While Mouse Key=0 : Wend : Wind Close 
  101. Goto MAIN